﻿Imports DataAccessLayer
Imports Be = BusinessEntities
Public Class AdicionalesBL

    Dim daoadicionales As New AdicionalesDAO

    Public Function InsertarAdicional(ByVal objeto As Be.AdicionalesDTO) As Boolean
        Return daoadicionales.InsertarAdicional(objeto)
    End Function
    Public Function CapturaError() As String
        Return daoadicionales.CapturaError
    End Function
End Class
